	TOP
 BYTE AA(100)
 BYTE BB(00300)
 INT IAA(100)
 INT IBB(00300)
 BYTE CC
 BYTE DD
 INT ICC
 BYTE SS
 BYTE EE
 BYTE FF
 INT IDD
 INT IEE
 INT IFF
 BEGINMAIN(AC,IAV)
	MS 'BEGIN T05'
 GOTO 10
	MS 'GOTOFAILS'
 LOC 20
 GOTO 30
	MS 'AND AGAIN'
 LOC 10
 GOTO 20
 LOC 30
 MS '111111111'
 CC=+001
 DD=+000
 AA(DD)=CC
 EE=AA(DD)
 FF=EE!=CC
 IF FF
	MS 'BYT...BYT'
 ENDIF
 MS '222222222'
 DD=+099
 AA(DD)=CC
 EE=AA(DD)
 FF=EE!=CC
 IF FF
	MS 'BYT.99BYT'
 ENDIF
 MS '333333333'
 SS=+000
 WHILE
	DD--
	EE=+000
	FF=DD!=EE
 ON FF
	AA(DD)=SS
	EE=AA(DD)
	FF=EE!=SS
	IF FF
		MS 'BYT.I.BYT'
		MS ' OR WHILE'
		GOTO 51
	ENDIF
	SS++
 ENDWHILE
 MS '444444444'
 LOC 51
 EE=+098
 FF=EE!=SS
 IF FF
	MS 'WHILE....'
 ENDIF
 IDD=+00300
 ICC=+00000
 WHILE
	FF=ICC!=IDD
 ON FF
	DD++
	BB(ICC)=DD
	EE=BB(ICC)
	FF=EE!=DD
	IF FF
		MS 'BYT.I.INT'
		GOTO 52
	ENDIF
	ICC++
 ENDWHILE
 MS '555555555'
 LOC 52
 ICC=+00000
 IEE=+00100
 WHILE
	FF=ICC!=IDD
 ON FF
	IEE++
	IBB(ICC)=IEE
	ICC++
 ENDWHILE
 IEE=+00100
 ICC=+00000
 WHILE
	FF=ICC!=IDD
 ON FF
	IEE++
	IFF=IBB(ICC)
	ICC++
	FF=IFF!=IEE
	IF FF
		MS 'INT(INT).'
		GOTO 53
 	ENDIF
 ENDWHILE
 MS '666666666'
 LOC 53
 DD=+100
 CC=+000
 IEE=+10000
 WHILE
	FF=CC!=DD
 ON FF
	IAA(CC)=IEE
	IEE++
	CC++
 ENDWHILE
 CC=+000
 IEE=+10000
 WHILE
	FF=CC!=DD
 ON FF
	IDD=IAA(CC)
	FF=IDD!=IEE
	IF FF
		MS 'INT(BYTE)'
		GOTO 54
	ENDIF
	IEE++
	CC++
 ENDWHILE
 MS '777777777'
 LOC 54
 MS 'ENDOF T05'
 ENDMAIN
 BOTTOM
 FINIS
